home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Docs / Tutorials / Menus.gc < prev    next >
Text File  |  1999-04-21  |  2KB  |  57 lines
  1. G4C
  2.  
  3. WinBig -1 -1 500 130 "Menus.gc"
  4. WinType 11110001
  5. usetopaz
  6.  
  7. BOX 0 0 0 0 OUT RIDGE
  8. SQUARE 14 18 100 52 2 NOFILL    ; Inset menu list
  9. SQUARE 64 40 36 24 2 NOFILL
  10.  
  11. xonLoad 
  12.     GuiOpen Menus.gc
  13.  
  14. xonClose
  15.     GuiQuit Menus.gc
  16.  
  17. ; ---- xMenu arguments are :   Menu Item SubItem ShortCut
  18. ;      Examples used here have been enclosed in quotes just
  19. ;      to lengthen the entries. They then appear less
  20. ;      cramped for space when used.
  21. ;      The effect of each selection is displayed in a Text gadget.
  22. xMenu 'Project      ' 'Read   ' '' 'R'
  23.     update Menus.gc 1 "You selected the 'Read' menu item."
  24.  
  25. xMenu 'Project      ' 'Edit   ' 'Ed       ' 'E'
  26.     update Menus.gc 1 "You selected the 'Edit  ED' subitem."
  27.  
  28. xMenu 'Project      ' 'Edit   ' 'CED      ' 'C'
  29.     update Menus.gc 1 "You selected the 'Edit  CED' subitem."
  30.  
  31. xMenu 'Project      ' 'Quit   ' '' 'Q'
  32.     update Menus.gc 1 "Trying to Quit, eh?"
  33.  
  34. ; ---- A poor reproduction of the menu layout, and explanatory notes.
  35. Text 180 2 100 12 'Menus' 6 NOBOX 
  36. Text 20 20 100 10 'Project' 7 NOBOX
  37. Text 20 30 100 10 'Read' 4 NOBOX
  38. Text 20 40 100 10 'Edit' 4 NOBOX
  39. Text 70 42 100 10 'Ed' 10 NOBOX
  40. Text 70 52 100 10 'CED' 3 NOBOX
  41. Text 20 60 100 10  'Quit' 4 NOBOX
  42.  
  43. Text 130 20 100 10 'If you use the Right Mouse Button to check,' 44 NOBOX
  44. Text 130 30 100 10 'you will see that a small set of menus, as' 44 NOBOX
  45. Text 130 40 100 10 'shown in the box here, has been set up.' 44 NOBOX
  46. Text 130 50 100 10 "You may of course 'Select' them.  Your" 44 NOBOX
  47. Text 130 60 100 10 'selection will be confirmed, but nothing' 50 NOBOX
  48. Text 130 70 100 10 "else will happen." 40 NOBOX
  49.  
  50. Text 30 85 100 10 "Note the shortcuts (RightAmiga/char) in the menus." 50 NOBOX
  51. Text 30 95 100 10 "Check that they work." 24 NOBOX
  52.  
  53. ; ---- This is the Text box to confirm your choices.
  54. Text 100 110 100 10 '' 38 NOBOX
  55.     gadid 1
  56.  
  57.